VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cProducto"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private mCodigo As String
Private mNombre As String
Private mEmpresa As String
Private mIndice As Integer

Public Property Get Codigo() As String
    Codigo = mCodigo
End Property
Public Property Let Codigo(ByVal vNewValue As String)
    mCodigo = vNewValue
End Property

Public Property Get nombre() As String
    nombre = mNombre
End Property
Public Property Let nombre(ByVal vNewValue As String)
    mNombre = vNewValue
End Property

Public Property Get Empresa() As String
    Empresa = mEmpresa
End Property
Public Property Let Empresa(ByVal vNewValue As String)
    mEmpresa = vNewValue
End Property


Public Property Get Indice() As Integer
    Indice = mIndice
End Property
Public Property Let Indice(ByVal vNewValue As Integer)
    mIndice = vNewValue
End Property
